home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / disease.zip / DISEASE.MCD next >
Text File  |  1992-11-22  |  3KB  |  85 lines
  1. .MCAD 301010000 1 74
  2. .CMD PLOTFORMAT
  3. 0 0 1 0 0
  4. 0 0 1 0 0
  5. 0 1 0 0 NO-TRACE-STRING
  6. 0 2 1 0 NO-TRACE-STRING
  7. 0 3 2 0 NO-TRACE-STRING
  8. 0 4 3 0 NO-TRACE-STRING
  9. 0 1 4 0 NO-TRACE-STRING
  10. 0 2 5 0 NO-TRACE-STRING
  11. 0 3 6 0 NO-TRACE-STRING
  12. 0 4 0 0 NO-TRACE-STRING
  13. 0 1 1 0 NO-TRACE-STRING
  14. 0 2 2 0 NO-TRACE-STRING
  15. 0 3 3 0 NO-TRACE-STRING
  16. 0 4 4 0 NO-TRACE-STRING
  17. 0 1 5 0 NO-TRACE-STRING
  18. 0 2 6 0 NO-TRACE-STRING
  19. 0 3 0 0 NO-TRACE-STRING
  20. 0 4 1 0 NO-TRACE-STRING
  21. 0 1 21 15
  22. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  23. .CMD SET ORIGIN 0
  24. .CMD SET TOL 0.001000000000000
  25. .CMD SET PRNCOLWIDTH 8
  26. .CMD SET PRNPRECISION 4
  27. .CMD PRINT_SETUP 1.200000 0
  28. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  29. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  30. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  31. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  32. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  33. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  34. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  35. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  36. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  37. .CMD DEFINE_FONTSTYLE_NAME fontID=10 name=User^7
  38. .CMD DEFINE_FONTSTYLE fontID=0 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
  39. .CMD DEFINE_FONTSTYLE fontID=1 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
  40. .CMD DEFINE_FONTSTYLE fontID=2 family=Arial points=10 bold=0 italic=0 underline=0
  41. .CMD DEFINE_FONTSTYLE fontID=4 family=Arial points=10 bold=0 italic=0 underline=0
  42. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier^New points=10 bold=0 italic=0 underline=0
  43. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  44. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  45. .CMD DEFINE_FONTSTYLE fontID=8 family=Roman points=10 bold=0 italic=0 underline=0
  46. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  47. .CMD DEFINE_FONTSTYLE fontID=10 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
  48. .CMD UNITS U=1
  49. .EQN 7 8 0 0
  50. t:0;20
  51. .TXT 7 15 0 0
  52. Cg a15.125000,45.000000,62
  53. {\rtf1\ansi \deff0
  54. {\fonttbl
  55. {\f0\fnil Arial;}
  56. }
  57. {\plain i = Infection\par s=susceptable\par 
  58. d=deceased\par r=immune(recovered)}
  59. }
  60. .EQN 4 -14 0 0
  61. ({4,1}÷(r)[(0)÷(d)[(0)÷(s)[(0)÷(i)[(0)):({4,1}÷0÷0÷22000÷50)
  62. .EQN 0 31 0 0
  63. ({4,1}÷(r)[(t+1)÷(d)[(t+1)÷(s)[(t+1)÷(i)[(t+1)):({4,1}÷(r)[(t)+0.45*(i)[(t)÷(d)[(t)+0.55*(i)[(t)÷(s)[(t)-0.0001*(s)[(t)*(i)[(t)÷0.0001*(s)[(t)*(i)[(t))
  64. .EQN 8 -27 0 0
  65. &&(i)[(t),(s)[(t),(d)[(t),(r)[(t)@&&t
  66. 0 0 1 0 0
  67. 0 0 1 0 0
  68. 0 1 0 0 NO-TRACE-STRING
  69. 0 2 1 0 NO-TRACE-STRING
  70. 0 3 2 0 NO-TRACE-STRING
  71. 0 4 3 0 NO-TRACE-STRING
  72. 0 1 4 0 NO-TRACE-STRING
  73. 0 2 5 0 NO-TRACE-STRING
  74. 0 3 6 0 NO-TRACE-STRING
  75. 0 4 0 0 NO-TRACE-STRING
  76. 0 1 1 0 NO-TRACE-STRING
  77. 0 2 2 0 NO-TRACE-STRING
  78. 0 3 3 0 NO-TRACE-STRING
  79. 0 4 4 0 NO-TRACE-STRING
  80. 0 1 5 0 NO-TRACE-STRING
  81. 0 2 6 0 NO-TRACE-STRING
  82. 0 3 0 0 NO-TRACE-STRING
  83. 0 4 1 0 NO-TRACE-STRING
  84. 0 1 21 21
  85.